How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/eindex.dir/00706_Script_aIndexManager

Text File | 1995-09-06 | 5KB | 140 lines

--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
  return me
end

on testIndexRollover me
  --set the trace = true
  set thisAlpha =  the mouseCast
  if (thisAlpha > 0 and thisAlpha < 27) then
    set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
    setTopicMenu(thisAlphaIndex)
    clearRefLinkIcon(thisAlphaIndex)
  else
    if (objectP(pLatchedAlpha) ) then
      --òò because the art department could not generate the
      --òò the highlight art fro the topic menu we need to
      --disable the highlight fucnctionality (commented out below)
      --if (rollover(2)) then
      -- secondaryHilight (sub-menu)
      -- set vOffset = the mouseV
      --  setTopicHiLight(pLatchedAlpha , vOffset)
      -- else
      -- revert to latched topic menu
      setTopicMenu(pLatchedAlpha)
      -- end if
    end if
  end if
end

on resetIndex me
  reset(pLatchedAlpha)
end

on clickAlpha me
  set thisAlpha = the mouseCast
  if  (thisAlpha >= 1 and thisAlpha <= 26) then
    set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
    clearRefLinkIcon(pLatchedAlpha)
  end if
end

on clickTopic me
  set vOffset = the mouseV
  selectTopicFromMenu(pLatchedAlpha,vOffset)
end

on clickRefLink me , horzPos,vertPos
  set vOffset = vertPos --the mouseV
  clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end

on initIndex me
  set pTopicMenu = []
  set indexCount = 1
  set topicObjectClass = the number of cast "aTopicMenu"

  --òò A Topic Menu
  set thisMenu = (birth (script topicObjectClass, 1001 , 1001 , 2 , 1000 , 41 , 1024,  12,0))
  append pTopicMenu, thisMenu
  set pLatchedAlpha =  thisMenu
  --òò B
  set thisMenu =  (birth (script topicObjectClass, 1002 , 1002 , 2 , 1000 , 41 ,1046,  12,0))
  append pTopicMenu, thisMenu
  --òò C
  set thisMenu =  (birth (script topicObjectClass, 1003 , 1003 , 2 , 1000 , 41 ,1068,  10,9))
  append pTopicMenu, thisMenu
  --òò D
  set thisMenu =  (birth (script topicObjectClass, 1004 , 1004 , 2 , 1000 , 41 ,1090,  10,0))
  append pTopicMenu, thisMenu
  --òò E
  set thisMenu =  (birth (script topicObjectClass, 1005 , 1005 , 2 , 1000 , 41 ,1101,  6,0))
  append pTopicMenu, thisMenu
  --òò F
  set thisMenu =  (birth (script topicObjectClass, 1006 , 1006 , 2 , 1000 , 41 ,1112,  12,0))
  append pTopicMenu, thisMenu
  --òò G
  set thisMenu =  (birth (script topicObjectClass, 1007 , 1007 , 2 , 1000 , 41 ,1134,  13,0))
  append pTopicMenu, thisMenu
  --òò H
  set thisMenu =  (birth (script topicObjectClass, 1008 , 1008 , 2 , 1000 , 41 ,1156,  11, 0))
  append pTopicMenu, thisMenu
  --òò I
  set thisMenu =  (birth (script topicObjectClass, 1009 , 1009 , 2 , 1000 , 41 ,1178,  5, 0))
  append pTopicMenu, thisMenu
  --òò J
  set thisMenu =  (birth (script topicObjectClass, 1010 , 1010 , 2 , 1000 , 41 ,1189,  1, 0))
  append pTopicMenu, thisMenu
  --òò K
  set thisMenu =  (birth (script topicObjectClass, 1011 , 1011 , 2 , 1000 , 41 ,1200,  2, 0))
  append pTopicMenu, thisMenu
  --òò L
  set thisMenu = (birth (script topicObjectClass, 1012 , 1012 , 2 , 1000 , 41 ,1211,  6, 0))
  append pTopicMenu, thisMenu
  --òò M
  set thisMenu =  (birth (script topicObjectClass, 1013 , 1013 , 2 , 1000 , 41 ,1222,  8, 8))
  append pTopicMenu, thisMenu
  --òò N
  set thisMenu =  (birth (script topicObjectClass, 1014 , 1014 , 2 , 1000 , 41 ,1244,  7, 0))
  append pTopicMenu, thisMenu
  --òò O
  set thisMenu =  (birth (script topicObjectClass, 1015 , 1015 , 2 , 1000 , 41 ,1255,  5, 0))
  append pTopicMenu, thisMenu
  --òò P
  set thisMenu = (birth (script topicObjectClass, 1016 , 1016 , 2 , 1000 , 41 ,1266,  11, 10))
  append pTopicMenu, thisMenu
  --òò Q
  set thisMenu =  (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45,  4, 0))
  append pTopicMenu, thisMenu
  --òò R
  set thisMenu =  (birth (script topicObjectClass, 1017 , 1017 , 2 , 1000 , 41 ,1288,  5, 0))
  append pTopicMenu, thisMenu
  --òò S
  set thisMenu =  (birth (script topicObjectClass, 1018 , 1018 , 2 , 1000 , 41 ,1299,  12, 11))
  append pTopicMenu, thisMenu
  --òò T
  set thisMenu =  (birth (script topicObjectClass, 1019 , 1019 , 2 , 1000 , 41 ,1332,  14, 0))
  append pTopicMenu, thisMenu
  --òò U
  set thisMenu =  (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
  --òò V
  set thisMenu =  (birth (script topicObjectClass, 1020 , 1020 , 2 , 1000 , 41 ,1354,  2,0))
  append pTopicMenu, thisMenu
  --òò W
  set thisMenu =  (birth (script topicObjectClass, 1021 , 1021 , 2 , 1000 , 41 ,1365,  11,0))
  append pTopicMenu, thisMenu
  --òò X
  set thisMenu =  (birth (script topicObjectClass, 1022 , 1022 , 2 , 1000 , 41 ,1387,  1,0))
  append pTopicMenu, thisMenu
  --òò Y
  set thisMenu =  (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,479,  0,0))
  append pTopicMenu, thisMenu
  --òò Z
  set thisMenu =  (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45,  0,0))
  append pTopicMenu, thisMenu
end